home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / term / term41source.lha / Extras / Source / term-Source.lha / SpeechPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-31  |  8.4 KB  |  374 lines
  1. /*
  2. **    SpeechPanel.c
  3. **
  4. **    Editing panel for speech configuration
  5. **
  6. **    Copyright © 1990-1994 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_RATE=1,GAD_PITCH,GAD_FREQUENCY,GAD_VOLUME,GAD_SEX,GAD_ENABLED,GAD_SPEAK,
  13.         GAD_USE,GAD_LOAD,GAD_SAVE,GAD_CANCEL
  14.     };
  15.  
  16. STATIC LONG __saveds
  17. VolumeDisplay(struct Gadget *SomeGadget,WORD Level)
  18. {
  19.     return((100 * (LONG)Level) / MAXVOL);
  20. }
  21.  
  22. VOID
  23. SpeechPanel()
  24. {
  25.     struct LayoutHandle    *Handle;
  26.     struct SpeechConfig     PrivateConfig;
  27.     ULONG             OldCRC;
  28.  
  29.     OldCRC = DoCRC(&SpeechConfig,sizeof(SpeechConfig));
  30.  
  31.     CopyMem(&SpeechConfig,&PrivateConfig,sizeof(struct SpeechConfig));
  32.  
  33.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  34.         LH_LocaleHook,    &LocaleHook,
  35.     TAG_DONE))
  36.     {
  37.         struct Window *PanelWindow;
  38.  
  39.         LT_New(Handle,
  40.             LA_Type,    VERTICAL_KIND,
  41.         TAG_DONE);
  42.         {
  43.             LT_New(Handle,
  44.                 LA_Type,    VERTICAL_KIND,
  45.                 LA_LabelID,    MSG_V36_0185,
  46.             TAG_DONE);
  47.             {
  48.                 LT_New(Handle,
  49.                     LA_Type,    VERTICAL_KIND,
  50.                 TAG_DONE);
  51.                 {
  52.                     LT_New(Handle,
  53.                         LA_Type,        SLIDER_KIND,
  54.                         LA_LabelID,        MSG_SPEECHPANEL_RATE_GAD,
  55.                         LA_WORD,        &SpeechConfig . Rate,
  56.                         LA_Chars,        20,
  57.                         LA_ID,            GAD_RATE,
  58.                         GTSL_Min,        MINRATE,
  59.                         GTSL_Max,        MAXRATE,
  60.                         GTSL_LevelFormat,    LocaleBase ? "%lD" : "%ld",
  61.                     TAG_DONE);
  62.  
  63.                     LT_New(Handle,
  64.                         LA_Type,        SLIDER_KIND,
  65.                         LA_LabelID,        MSG_SPEECHPANEL_PITCH_GAD,
  66.                         LA_WORD,        &SpeechConfig . Pitch,
  67.                         LA_ID,            GAD_PITCH,
  68.                         GTSL_Min,        MINPITCH,
  69.                         GTSL_Max,        MAXPITCH,
  70.                         GTSL_LevelFormat,    LocaleBase ? "%lD" : "%ld",
  71.                     TAG_DONE);
  72.  
  73.                     LT_New(Handle,
  74.                         LA_Type,        SLIDER_KIND,
  75.                         LA_LabelID,        MSG_SPEECHPANEL_FREQUENCY_GAD,
  76.                         LA_LONG,        &SpeechConfig . Frequency,
  77.                         LA_ID,            GAD_FREQUENCY,
  78.                         GTSL_Min,        MINFREQ,
  79.                         GTSL_Max,        MAXFREQ,
  80.                         GTSL_LevelFormat,    LocaleBase ? "%lD" : "%ld",
  81.                     TAG_DONE);
  82.  
  83.                     LT_New(Handle,
  84.                         LA_Type,        SLIDER_KIND,
  85.                         LA_LabelID,        MSG_SPEECHPANEL_VOLUME_GAD,
  86.                         LA_BYTE,        &SpeechConfig . Volume,
  87.                         LA_ID,            GAD_VOLUME,
  88.                         GTSL_Min,        MINVOL,
  89.                         GTSL_Max,        MAXVOL,
  90.                         GTSL_LevelFormat,    "%ld%%",
  91.                         GTSL_DispFunc,        VolumeDisplay,
  92.                     TAG_DONE);
  93.  
  94.                     LT_New(Handle,
  95.                         LA_Type,        MX_KIND,
  96.                         LA_LabelID,        MSG_SPEECHPANEL_SEX_GAD,
  97.                         LA_BYTE,        &SpeechConfig . Sex,
  98.                         LA_ID,            GAD_SEX,
  99.                         LAMX_FirstLabel,    MSG_SPEECHPANEL_MALE_TXT,
  100.                         LAMX_LastLabel,        MSG_SPEECHPANEL_FEMALE_TXT,
  101.                     TAG_DONE);
  102.  
  103.                     LT_New(Handle,
  104.                         LA_Type,        CHECKBOX_KIND,
  105.                         LA_LabelID,        MSG_SPEECHPANEL_SPEECH_ENABLED_GAD,
  106.                         LA_BYTE,        &SpeechConfig . Enabled,
  107.                         LA_ID,            GAD_ENABLED,
  108.                     TAG_DONE);
  109.  
  110.                     LT_New(Handle,
  111.                         LA_Type,        XBAR_KIND,
  112.                     TAG_DONE);
  113.  
  114.                     LT_EndGroup(Handle);
  115.                 }
  116.  
  117.                 LT_New(Handle,
  118.                     LA_Type,    VERTICAL_KIND,
  119.                 TAG_DONE);
  120.                 {
  121.                     LT_New(Handle,
  122.                         LA_Type,        BUTTON_KIND,
  123.                         LA_LabelID,        MSG_SPEECHPANEL_SPEAK_GAD,
  124.                         LA_ID,            GAD_SPEAK,
  125.                         LA_ExtraFat,        TRUE,
  126.                         GA_Disabled,        !SpeechConfig . Enabled,
  127.                     TAG_DONE);
  128.  
  129.                     LT_EndGroup(Handle);
  130.                 }
  131.  
  132.                 LT_EndGroup(Handle);
  133.             }
  134.  
  135.             LT_New(Handle,
  136.                 LA_Type,VERTICAL_KIND,
  137.             TAG_DONE);
  138.             {
  139.                 LT_New(Handle,
  140.                     LA_Type,    XBAR_KIND,
  141.                     LAXB_FullSize,    TRUE,
  142.                 TAG_DONE);
  143.  
  144.                 LT_EndGroup(Handle);
  145.             }
  146.  
  147.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  148.                 LAGR_SameSize,    TRUE,
  149.                 LAGR_Spread,    TRUE,
  150.             TAG_DONE);
  151.             {
  152.                 LT_New(Handle,
  153.                     LA_Type,    BUTTON_KIND,
  154.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  155.                     LA_ID,        GAD_USE,
  156.                     LABT_ReturnKey,    TRUE,
  157.                     LABT_ExtraFat,    TRUE,
  158.                 TAG_DONE);
  159.  
  160.                 LT_New(Handle,
  161.                     LA_Type,    BUTTON_KIND,
  162.                     LA_LabelID,    MSG_GLOBAL_LOAD_GAD,
  163.                     LA_ID,        GAD_LOAD,
  164.                     LABT_ExtraFat,    TRUE,
  165.                 TAG_DONE);
  166.  
  167.                 LT_New(Handle,
  168.                     LA_Type,    BUTTON_KIND,
  169.                     LA_LabelID,    MSG_GLOBAL_SAVE_GAD,
  170.                     LA_ID,        GAD_SAVE,
  171.                     LABT_ExtraFat,    TRUE,
  172.                 TAG_DONE);
  173.  
  174.                 LT_New(Handle,
  175.                     LA_Type,    BUTTON_KIND,
  176.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  177.                     LA_ID,        GAD_CANCEL,
  178.                     LABT_EscKey,    TRUE,
  179.                     LABT_ExtraFat,    TRUE,
  180.                 TAG_DONE);
  181.  
  182.                 LT_EndGroup(Handle);
  183.             }
  184.  
  185.             LT_EndGroup(Handle);
  186.         }
  187.  
  188.         if(PanelWindow = LT_Layout(Handle,LocaleString(MSG_SPEECHPANEL_SPEECH_PREFERENCES_TXT),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  189.             LAWN_HelpHook,        &GuideHook,
  190.             LAWN_Parent,        Window,
  191.             WA_DepthGadget,        TRUE,
  192.             WA_CloseGadget,        TRUE,
  193.             WA_DragBar,        TRUE,
  194.             WA_RMBTrap,        TRUE,
  195.             WA_Activate,        TRUE,
  196.         TAG_DONE))
  197.         {
  198.             struct IntuiMessage    *Message;
  199.             BOOLEAN             Done = FALSE;
  200.             ULONG             MsgClass,
  201.                          MsgQualifier;
  202.             UWORD             MsgCode;
  203.             struct Gadget        *MsgGadget;
  204.             UBYTE              DummyBuffer[MAX_FILENAME_LENGTH],
  205.                         *DummyChar;
  206.             struct FileRequester    *FileRequest;
  207.             BYTE             OldEnglish = English;
  208.  
  209.             GuideContext(CONTEXT_SPEECH);
  210.  
  211.             PushWindow(PanelWindow);
  212.  
  213.             do
  214.             {
  215.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  216.                 {
  217.                     CopyMem(&PrivateConfig,&SpeechConfig,sizeof(struct SpeechConfig));
  218.  
  219.                     SpeechSetup();
  220.  
  221.                     break;
  222.                 }
  223.  
  224.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort))
  225.                 {
  226.                     MsgClass    = Message -> Class;
  227.                     MsgQualifier    = Message -> Qualifier;
  228.                     MsgCode        = Message -> Code;
  229.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  230.  
  231.                     GT_ReplyIMsg(Message);
  232.  
  233.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  234.  
  235.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  236.                     {
  237.                         CopyMem(&PrivateConfig,&SpeechConfig,sizeof(struct SpeechConfig));
  238.  
  239.                         SpeechSetup();
  240.  
  241.                         Done = TRUE;
  242.                     }
  243.  
  244.                     if(MsgClass == IDCMP_GADGETUP)
  245.                     {
  246.                         switch(MsgGadget -> GadgetID)
  247.                         {
  248.                             case GAD_ENABLED:
  249.  
  250.                                 LT_SetAttributes(Handle,GAD_SPEAK,GA_Disabled,!MsgCode,TAG_DONE);
  251.                                 break;
  252.  
  253.                             case GAD_USE:
  254.  
  255.                                 Done = TRUE;
  256.                                 break;
  257.  
  258.                             case GAD_CANCEL:
  259.  
  260.                                 CopyMem(&PrivateConfig,&SpeechConfig,sizeof(struct SpeechConfig));
  261.  
  262.                                 SpeechSetup();
  263.  
  264.                                 Done = TRUE;
  265.                                 break;
  266.  
  267.                             case GAD_LOAD:
  268.  
  269.                                 SplitFileName(LastSpeech,&DummyChar,DummyBuffer);
  270.  
  271.                                 LT_LockWindow(PanelWindow);
  272.  
  273.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SPEECHPANEL_LOAD_SPEECH_SETTINGS_TXT),DummyBuffer,FilePart(LastSpeech),DummyBuffer,"#?.prefs",FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_LOAD_TXT),TRUE))
  274.                                 {
  275.                                     if(!ReadIFFData(DummyBuffer,&SpeechConfig,sizeof(struct SpeechConfig),ID_SPEK))
  276.                                         ShowError(PanelWindow,ERR_LOAD_ERROR,IoErr(),DummyBuffer);
  277.                                     else
  278.                                     {
  279.                                         strcpy(LastSpeech,DummyBuffer);
  280.  
  281.                                         LT_SetAttributes(Handle,GAD_RATE,
  282.                                             GTSL_Level,SpeechConfig . Rate,
  283.                                         TAG_DONE);
  284.  
  285.                                         LT_SetAttributes(Handle,GAD_PITCH,
  286.                                             GTSL_Level,SpeechConfig . Pitch,
  287.                                         TAG_DONE);
  288.  
  289.                                         LT_SetAttributes(Handle,GAD_FREQUENCY,
  290.                                             GTSL_Level,SpeechConfig . Frequency,
  291.                                         TAG_DONE);
  292.  
  293.                                         LT_SetAttributes(Handle,GAD_VOLUME,
  294.                                             GTSL_Level,SpeechConfig . Volume,
  295.                                         TAG_DONE);
  296.  
  297.                                         LT_SetAttributes(Handle,GAD_SEX,
  298.                                             GTCY_Active,SpeechConfig . Sex,
  299.                                         TAG_DONE);
  300.  
  301.                                         LT_SetAttributes(Handle,GAD_ENABLED,
  302.                                             GTCB_Checked,SpeechConfig . Enabled,
  303.                                         TAG_DONE);
  304.  
  305.                                         LT_SetAttributes(Handle,GAD_SPEAK,
  306.                                             GA_Disabled,    SpeechConfig . Enabled == FALSE,
  307.                                         TAG_DONE);
  308.  
  309.                                         SpeechSetup();
  310.  
  311.                                         SpeechChanged = FALSE;
  312.  
  313.                                         OldCRC = DoCRC(&SpeechConfig,sizeof(SpeechConfig));
  314.                                     }
  315.  
  316.                                     FreeAslRequest(FileRequest);
  317.                                 }
  318.  
  319.                                 LT_UnlockWindow(PanelWindow);
  320.  
  321.                                 break;
  322.  
  323.                             case GAD_SAVE:
  324.  
  325.                                 SplitFileName(LastSpeech,&DummyChar,DummyBuffer);
  326.  
  327.                                 LT_LockWindow(PanelWindow);
  328.  
  329.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SPEECHPANEL_SAVE_SPEECH_SETTINGS_TXT),DummyBuffer,FilePart(LastSpeech),DummyBuffer,"#?.prefs",TRUE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SAVE_TXT),TRUE))
  330.                                 {
  331.                                     if(!WriteIFFData(DummyBuffer,&SpeechConfig,sizeof(struct SpeechConfig),ID_SPEK))
  332.                                         ShowError(PanelWindow,ERR_SAVE_ERROR,IoErr(),DummyBuffer);
  333.                                     else
  334.                                     {
  335.                                         strcpy(LastSpeech,DummyBuffer);
  336.  
  337.                                         SpeechChanged = FALSE;
  338.  
  339.                                         OldCRC = DoCRC(&SpeechConfig,sizeof(SpeechConfig));
  340.                                     }
  341.  
  342.                                     FreeAslRequest(FileRequest);
  343.                                 }
  344.  
  345.                                 LT_UnlockWindow(PanelWindow);
  346.  
  347.                                 break;
  348.  
  349.                             case GAD_SPEAK:
  350.  
  351.                                 SpeechSetup();
  352.  
  353.                                 English = TRUE;
  354.  
  355.                                 Say(LocaleString(MSG_SPEECHPANEL_THIS_IS_TERM_SPEAKING_TXT));
  356.  
  357.                                 English = OldEnglish;
  358.  
  359.                                 break;
  360.                         }
  361.                     }
  362.                 }
  363.             }
  364.             while(!Done);
  365.  
  366.             PopWindow();
  367.         }
  368.  
  369.         LT_DeleteHandle(Handle);
  370.     }
  371.  
  372.     SpeechChanged |= (OldCRC != DoCRC(&SpeechConfig,sizeof(SpeechConfig)));
  373. }
  374.